﻿
Public Class frmMessage

    Private Sub frmMessage_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnSend_Click(sender As Object, e As EventArgs) Handles btnSend.Click
        Dim user_id() As String = txtTarget.Text.Split(";")
        If IsArray(user_id) Then
            For i = 0 To UBound(user_id)
                SockGlobal.sendMessages(txtMessages.Text, user_id(i).Trim())
                System.Threading.Thread.Sleep(100)
            Next
        Else
            SockGlobal.sendMessages(txtMessages.Text, txtTarget.Text)
        End If
    End Sub
End Class